home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 31
/
Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso
/
Aminet
/
util
/
rexx
/
rmh.lha
/
rmh
/
examples
/
ra.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-04-23
|
1KB
|
36 lines
/*
Show how to use ReadArgs()
*/
l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
prg=ProgramName("NOEXT")
/* this is the template of AmigaDOS list command" */
template = "DIR/M,P=PAT/K,KEYS/S,DATES/S,NODATES/S,TO/K,SUB/K,SINCE/K,UPTO/K,QUICK/S,BLOCK/S,NOHEAD/S,FILES/S,DIRS/S,LFORMAT/K,ALL/S"
if ~RMH_ReadArgs(template) then do
call PrintFault(IoErr(),prg)
exit
end
if parm.0.mult>0 then
do i=0 to parm.0.mult-1
say "DIR" i":" parm.0.value.i
end
if parm.1.flag then say "PAT:" parm.1.value
if parm.2.flag then say "KEYS"
if parm.3.flag then say "DATES"
if parm.4.flag then say "NODATES"
if parm.5.flag then say "TO:" parm.5.value
if parm.6.flag then say "SUB:" parm.6.value
if parm.7.flag then say "SINCE:" parm.7.value
if parm.8.flag then say "UPTO:" parm.8.value
if parm.9.flag then say "QUICK"
if parm.10.flag then say "BLOCK"
if parm.11.flag then say "NOHEAD"
if parm.12.flag then say "FILES"
if parm.13.flag then say "DIRS"
if parm.14.flag then say "LFORMAT:" parm.14.value
if parm.15.flag then say "ALL"